Top 10k strings from Contabilidad Casera (1985)(MicroHobby)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 saldo=saldo-cant:
   2 printer2=1
   2 ;"      ";
   1 saldo=saldoant:
   1 saldo=saldo+cant
   1 saldo);saldo:
   1 printer2=0
   1 numdatos=0
   1 n=numdatos
   1 d(n)=d(n)+c(m,n):
   1 cant>999999
   1 cant=-cant:
   1 c(numdatos,a):
   1 c(n,codig)=cant
   1 c(n,codig)=0
   1 Contable  j
   1 ;"TABLA MOVIMIENTO"
   1 ;"Saldo del mes anterior?"'saldoant:
   1 ;"Querras copia por impresora de  la tabla del movimiento? (s/n)"
   1 ;"Querras copia impresa de la     comprobacion? (s/n)    ";
   1 ;"FECHA CD  DEBE   HABER   SALDO"
   1 ;"Cuantos datos vas a introducir?"'numdatos:
   1 ;"Cuantos codigos existen? "'a:
   1 ;"CODIGO      DEBE        HABER":
   1 ;"# LISTADO COMPROBACION TOTALES #":
   1 ;" Todo correcto. Fin de programa."
   1 ;"     ## PULSA UNA TECLA ##      ":
   1 ;"       ## VERIFICANDO ##        ":
   1 ;"       ":
   1 ;"                             ":
   1 ;"                              ";
   1 ,y10-((a+2
   1 '''" Bueno, la tabla de variables    ya esta lista para ser grabada."''" Antes de hacerlo, quieres rea-  lizar un listado de comproba-   cion de todos los codigos y sus correspondientes totales?"''" Pulsa ""s"" o ""n""."
   1 ''" Fase de grabacion; introduce    a continuacion la etiqueta con  la que quieres designar a las   variables recien itroducidas."
   1 '" Recuerda que este titulo no     debe sobrepasar los 10 carac-   teres."
   1 '" De acuerdo; el titulo es:"''" """;e$;""""
   1 '" Bien, ahora rebobina y pulsa    una tecla para verificar."
   1 '"       ##  GRABACION  ##       "
   1 "Introduce fecha (DD MM) ";f;" / ";e
   1 "Final; para seguir, ""ENTER"".";
   1 "Final comprobacion; ""ENTER"".";
   1 "Etiqueta: ";
   1 "DEBE o HABER?  (d/h)  ";
   1 "Codigo? ";codig:
   1 "Cantidad? ";cant:
   1 "# Pulsa ""ENTER"" #   ";
   1    CREACION PANTALLA